:+: :+: :+: :+: :+: M-: :+: :+: :+: :+: :+: :+: :+: :+: H-: :+: :+: H: 

RDDENDUMS TO THE LEVEL I GRMES PACK 

:+: :+: :+: :+: :+: :-|: * ■\- •+: :+: * H= * * :+: :+: * ■■¥■ 



THE FOLLOW I NQ PFlGES LIST THE CHRNQES REQUIRED RFTER CONVERSION 
FROM LEVEL I TO LEVEL II USING THE PROGRAM CONVERSION TRPE 

HAMURABI IS NOT LISTED SINCE IT 
REQUIRES NO CHRNQES AFTER CONVERSION 



TO QUICKEN THE INITIAL DRAWING OF -"CHECKERS' 
TRV CHANGING.-' ADDING THE FOLLOWING LINES : 



1.08 GOSUB 3 80S : GO SUB 2588 

3888 CLS : FOR X=8T87 : FOR V=8T87 : PR I NT© < <128* X > + <S=+= V> > .. 
<8*X+V+1>.; : NEXT V : NEXT X 

3885 A*=STRING*<8, 191 > 

3 8 1 8 F O R X — 8 T O 6 S T E P 2 : F 8 R V = 8 T O 6 S T E P 2 : Z = >■. < 1 2 8 : + : X > ■+• ■:: 8 * V y .:■ : 

PRINT8Z, 8*X+V+l.i : PRINT8Z, A$; : PRINT8Z+64, R*; : PRINT8Z+ 
136/ fl$j : IF ZOS16 PRINT8Z+288, R*j : NEXT V, X 

3812 FOR X=112TG127 : FOR V=45T047 : SET<X, V> : NEXT V, X 

3815 PRINT862, "".; : RETURN 



PRGL 2 
4: * * h= * ADDENDUM TO CHECKERS * * * * * 

238 FOR N~±TG64 : QOSUB 3580 : NEHT N : N=± : PRINT8±92.. "WRNT TO GO 

FIRST C't'/N::- "j 
235 fl*=INKEY* : IF R$="" THEN 235 
248 PRINT©±92.. " ".: : GOSUB 6888.: : IF R*="N" 

GOSUB 5888 
±888 PRINT01S4.. " "; : PRINT0±84, "FROM"; 

±88± R*=INKEV* : IF Fl*="" THEN ±88± ELSE PRINT8188, R#; 
±882 B*=INKEV* : IF B*="" THEN 1882 ELSE PRINT ©±89, B$; 
±883 F*=fl*+B* : F=VRL<F*> : Q=l 

±885 IF <F<±>+<F>64> THEN GOSUB 6888 : GOTO ±888 
±886 PRINT0±84, " TO "; 

±887 fl*=INKEV* : IF fl*=" " THEN ±807 ELSE PR I NT@±88, R#; 
±008 B*=INKEV* : IF B*="" THEN ±888 ELSE PRINT8±89, B#; 
±889 T*=R*~i-B$ : T-Vf\L. <!■$■';> : IF <.T-0? RND <Q-&> THEN RETURN 
±8±8 IF <T<±>+<T>64> THEN GOSUB 6888 : GOTO ±886 
±280 IF <RBSCT-F> =7> OR <RBS<T-F> =9> THEN RETURN 

±260 FOR B=7 TO 9 STEP2 : G=T+B : IF <Q>64> OR <G+B>G4> THEN ±266 
±265 IF < '::FI'::G>=±> OR <FKG>=2>:> FIND <FKG-H3}=8} THEN F=T : Q=8 : 

GOTO ±886 
±278 FOR B=-~9TG~~7 STEP2 : G=T+B : IF <G<8> 8R <G+B<©> THEN ±298 
±288 IF < '::F4-::g::'=±::' OR CR<:G:>==2> > RND < R < G+B > ~8 > THEN F-T : Q=8 : 

GOTO ±806 
±580 Q=0 : IF •:: R < F > >-~ ± > OR <fi<T><>8> THEN RETURN 
; 1 568 IF <F-T=B> OR <<F-T=2*B> RND <. <R< <F+T >/2 >=±> OR <H< 

< F+T > S2. > =2 > > > THEN Q=± 
2880 IF U=± H=8 ELSE H=G 
2O0± FOR X=UTOH STEP2 : N=16*M 
2085 FOR V»UTOH STEP2 : Z==6=+=V 
38±5 PRINT062, ""; : RETURN 

5 O O Q = - - 9 9 : F O R I = ± T O 64 : I F ■:; R •:; I >< ± > O R < Fl ■:: I > > 2 > T H E N 5 O 5 O 
5888 IF <flBS<F-TX>14) RND <flBS<F-T)018) THEN RETURN 

5887 FOR B=-9TO--7 STEP2 : C=l"-i-B : IF <C<&> OR (C+B<@) THEN 5889 

5888 IF <: R < C > <8 > RND <R<C+B>=8> THEN F=T : T=C+B : GOTO 5878 
5898 FOR B=7T09 STEP2 : C=T+B : IF <C>64::' OF: <C+B>64> THEN 5898 
589± IF <R<C><8> RND tfl^C+EO-eO THEN F=T : T=C+B : GOTO 5878 
5±80 R=~99 : J=I+B : l<=8 : IF CJ<0> OR <J>64> THEN 5288 

5108 IF <J+B<Q> OR <J+B>64> THEN 5±±5 

5±±8 IF <FKJ+B>=0> RND <fl<J><@> THEN R=5 : K>± : L=J+B 

5±90 C=RND<0> : IF <R>Q> OR <<R=Q> RND <C>. 4>> THEN Q=R : F=I : T=L 

5258 G=H-R : H=I~R : IF <G>64> OR <G+R>64> THEN 5278 

5255 IF <<FKG>==±> OF: <fl<G)=2;0 FIND <R<G+R><8> THEN R=R~8 

5268 IF •:; R < G >C8 > RND <fi<H>=@> THEN R==R+4 

5265 IF <H<H>=-2> RND <R<Q>=0> THEN R=R+4 

5278 IF <H<0> OR <H~RC8> THEN 5388 

5288 IF ■:: ':'.fl'::H>=±> OR <fl<:H>=2>> RND <R<H-R>=-2> THEN R=R-8 

5385 IF < R < G >C8 > RND <Cfi<H>=S> + <:i=H>> THEN R=R— ±8 : GGT8 5387. 

5386 IF <H<H>=-2> RND <<R<Q>=©> OR <I=G::'> THEN R=R-±0 
53±0 IF < R «:". G > <8 > RND <FlO3+R)=0 > THEN R=R+5+K*±8 

5338 IF <<CFKG>=±> OR <R<Q>=2>> RND <FKG+FO<0> THEN R=R+4 : S=S+4 
5335 IF •::HC0> OR <H-H<Q> THEN 5358 

5348 IF <<FKH}=±> OR <fl<H>=2>> RND <R<H-R>=-2> THEN R=F:+4 : S=S+4 
5358 IF R>S R=S 

6288 FOR N=9TO±5 STEP2 : GOSUB 3588 : NEXT N : FOR X-8TO± : 
F8R V=±2T8±4 : SET<K, V> : NEXTV : NEXTX : RETURN 



PRGE 3 



•4* :+: :+: M-: * SPACE TAXI ADDENDUM- ■•*•■ ■■*■ * :+: :+: 

FOR THIS PROQRHM CHRNGE THE SEMICOLONS <; > TO COMMAS <j > 
AFTER ALL PRINT® STATEMENTS IN THE FOLLOWING LINES : 

34© <flDD SEMICOLONS TO THE END 

341 OF LINES 348 & 341. > 

358 

368 

688 

621 <ADD COMMA TO END OF LINE".:- 

68 8 

fc> o -L 

788 

718 

811 <ADD COMMA TO END OF LINE> 

1828 

1188 

1128 

RDD THE FOLLOWING CHRNGES : 

418 IF HC8 THEN C=C--1 : M=M-1 : GOTO 438 
+38 IF VC8 THEN D=D--1 : N=N-~1 : GOTO 441 
450 IF <.C—±> OR <C=126> OR <D=0> CLS : G0T0788 
455 IF <D=3S> AND <<C<H> OR (DR+7)) FIND <V<= Z> THEN V=0 : 

GOSUB 1100 : GOTO 328 
468 IF «T.POINT<C-2.. D+l> ::■ OR < POINT a>i-2, D+l> > G0T0788 
478 IF ':.D=38> AND '::'•.•'<= 2 > V=8 : GOTO 800 
480 IF <D=31> OR <D=38> GOTO 700 
720 INPUT "> PLRV AGAIN CV,''N> " .; Z* : IF Z*="V" F=80 : 

CLS : GOTO 2 
730 IF Z* <> "N" GOTO 720 
810 FOR Z=Fl TO FH-5 : IF <:C-~1=Z::' OR <C+1=Z> GOTO 868 



:+: :+: :+: :+: :i= STAR PILOT ADDENDUM * * * * :+: 



ADD OR CHANGE THE FOLLOWING LINES : 

S3 DIM A<58> 

1888 GOSUB 3 9 3 9 

3999 D*=INKEV* : IF D$<>""CLS : ELSE GOTO 4880 

8828 INPUT "DO YOU WANT ANOTHER SIMULATION'S Rt 

883© IF R*<>"N" GOTO 10O 

8510 < CHANGE 'GOTO 8815 •' TO 'GOTO 8828'';' 

DELETE LINE 8815 



PFlGE 4 



:+: :+: :+: H-: :+: TIC T R C T E '•+: H-: * * + 



2 CLS : PRINT0471, "ENTER FIRST NAME".; : INPUT B* : -J=© : U=© : 

V=S : W=© : DIM H<5@> 
38 PR I NTT ABC 22 >, B*.: "SELECT SQUARE".; : PRINT©©, "?".; 

10© Q*=INKEV* : IF Q*= ,,H THEN 100 ELSE Q=VAL<Q$> : PRINT03, Q; : 
PRINTS©, " ":■ 

101 IF <Q>e> AND <Q<10> THEN 103 

102 PRINT "INVALID PLAV" : FOR T=1TO1©0© : NEXT T : PRINT©©, " ".; 
G0T098 

199 FKR>=4 : PRINT"".: 

666 FOR R=1T09 : IF <R<R>=M> OR < A < R } =S > Q=R : GOTO 1000 

680 IF A'::r::-=S THEN 199 

400© Q='::FKM} >-T : IF Q=-2 Q=7 

4001 IF Q=— 1 Q=8 

4002 IF Q=0 Q=9 

4003 IF FKQ>=8 FKQ>=9 : GOTO 858© 
4804 IF M=17 M=13 

4005 IF M=19 M=17 

4086 IF M=15 M=19 

??87 IF v=1 v _ 2 . x _ 2 . Q0T0 7Q10 

7788 IF V=2 V=3 : K=8 : Z=2 : GOTO 788© 

7789 IF 't'=3 V=4 : K=2 : GOTO 7810 

7790 IF V=4 V=5 : X-Q : Z=3 : GOTO 7880 

7791 IF V=5 V=6 : X=2 : GOTO 7010 

7792 IF V=6 V=7 : X=8 : Z=4 : GOTO 788© 

7793 IF V=7 V=8 : X=2 : GOTO 7810 

89©8 IF tR+B+C=X> OR <R+D-i-G=:k::' OR <R+E+I=X::' OR <B+E+H=K> THEN Z=l 

8918 IF <C+F+ 1 -X> OR <D+E+F=X> OR <G+H+I=: : THEN Z=l 

8912 IF <FI+B+C=X.> OR <R+D+G=X> OR Cfl+E+I==X> OR <B+E+H=X> OR 
<C+E+G=X> THEN Z=Z+2 

8913 if '::c+f+i=:k::' or <d+e+f=x> or <g+h+i=;k> THEN Z=Z+2 

8915 IF <<Z=2> OR <Z=4!>:> THEN 8931 

8916 IF <Z=3> OR <Z=5> THEN 18828 



* * :+: :+: :+= DRAN I, DRRW II, DRHN III * * * * * 



DRRW I NO CHANGES 

DRAN II ADD THE FOLLOWING : 

4 DIM A<MEM,-'4-i::' 

78 A=8 : K=INT<MEM/4-±> 

88 FOR I =8T0C MEM/4-1 > : FKI>=0 : NEXT I 

233 IF <S=0> AND <POINT<X^V>> K=K+1 

630 IF POINTd, J> A < l< } = ':: I =100+ J > : K=K+1 

** IF OUT OF MEMORV ERROR OCCURS, CHANGE 
LINE 4 TO READ : "DIM AO000>-' 

DRAW III ADD THE FOLLOWING : 

1 DIM FK3080> 



